home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / games / dis1015.d64 / g. lemon_hood ! (.txt) < prev    next >
Commodore BASIC  |  1995-07-31  |  18KB  |  578 lines
  1. 1 DIM V$(10)
  2. 2 REM GREG LEMON/HOOD, RITTER DES RECHTS
  3. 3 REM PUBLIC DOMAIN PROGRAMM
  4. 4 REM VON PETER DIEHM (W) 12/91
  5. 7 POKE 657,128:POKE 650,255:GG=1:F=1
  6. 8 POKE 53280,0:POKE 53281,0:PRINT"[147]"CHR$(142):POKE 646,1:GOSUB 30:GOTO5000
  7. 10 REM UNTERPROGRAMM TASTE
  8. 12 PRINTSPC(30)"[154]-TASTE-[146]"
  9. 13 GET D$:IF D$="" THEN 13
  10. 14 RETURN
  11. 30 REM SPRITE
  12. 32 V=53248:FORI=0TO62:READXX:POKE 832+I,XX
  13. 33 NEXT I
  14. 34 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,28,0
  15. 35 DATA 0,62,0,0,127,0,0,255,128,1,255,192,0,28,0
  16. 36 DATA 0,28,0,0,28,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  17. 37 POKE 53269,0:POKE 2040,13:POKE V+43,0:POKE V+39,7
  18. 40 RETURN
  19. 50 REM BILDER LOADER
  20. 51 OPEN1,8,4,"PIC"+A$+",S,R"
  21. 53 INPUT#1,V$(1),V$(2),V$(3),V$(4),V$(5),V$(6),V$(7),V$(8),V$(9),V$(10)
  22. 54 CLOSE1
  23. 60 REM PIC INSTALL
  24. 61 FORI=1TO10:PRINTSPC(1)""V$(I)"":NEXT:RETURN
  25. 70 REM GREG LEMON/HOOD
  26. 71 PRINT"[147]":POKE 53269,0
  27. 73 PRINTSPC(1)"[207][183][208] [207][205] [207][183] [207][208]
  28. 74 [153][166]1)"FN AND (null)SQR (null)USR FNAND LEMON/HOOD ! RITTER DES
  29. 75 PRINTSPC(1)"[204][175][186] [165][205] [183][183] [204][186]               RECHTS !
  30. 76 [142]
  31. 90 [129] I[178]1[164]20:[153]"CONTSTR$ASC";:[130]:[142]
  32. 100 [141] 440:[153][166]1)"DU OEFFNEST DIE TUER UND GEHST IN DIE
  33. 102 PRINTSPC(1)"HUETTE !":F=20:GOSUB 10:GOTO 1000
  34. 120 GOSUB 440:PRINTSPC(1)"DU BESIEGST DEN DRACHEN UND BADEST IN
  35. 122 [153][166]1)"DESSEN BLUT. DU BIST NUN UNSTERBLICH !":DD[178]1:[141] 10:[137] 1000
  36. 130 [141] 440:[153][166]1)"DU KOLPFST AN DIE TUER !":[137] 1700
  37. 135 [141] 440:[153][166]1)"DU ZIEHST DIR DIE KUTTE UEBER !":EE[178]1:
  38. 136 [129]I[178]1[164]2500:[130]:[137] 1000
  39. 140 [141] 440:[153][166]1)"DU SCHLAEGST DEM WOGGLING DEN KOPF AB."
  40. 142 [129]I[178]1[164]2500:[130]:FF[178]1:[137] 1000
  41. 145 [141] 440:[153][166]1)"DU ZERSCHLAEGST DIE TUER UND GEHST
  42. 146 PRINTSPC(1)"HINEIN !":F=20:GOTO 450
  43. 150 PRINTSPC(1)"VOR DIR STEHT EIN MOENCH, DIESER SAGT
  44. 152 [153][166]1)"DAS ER DURST AUF PRICKELWASSER HAT.
  45. 154 PRINTSPC(1)"ALTER SAUFBOLD DENKST DU. R: SUEDEN.":GOSUB90
  46. 156 GOTO 1200
  47. 170 PRINTSPC(1)"DER WEG IST NUN IMMER NOCHT NICHT
  48. 172 [153][166]1)"FREI, DA EIN TOTER DRACHE DIR DEN WEG
  49. 174 PRINTSPC(1)"VERSPERRT."
  50. 175 PRINTSPC(1)"RICHTUNGEN: NORDEN, WESTEN.":GOSUB 90:GOTO 1200
  51. 200 REM NORDEN
  52. 201 IF F=1 THEN F=5:GOTO 400
  53. 202 IF F=4 THEN F=1:GOTO 400
  54. 204 IF F=16 THEN F=4:GOTO 400
  55. 205 IF F=18 THEN F=17:GOTO 400
  56. 207 IF F=22 THEN F=3:GOTO 400
  57. 209 IF F=3 THEN F=2:GOTO 400
  58. 210 IF F=6 THEN F=7:GOTO 400
  59. 212 IF F=7 THEN F=11:GOTO 400
  60. 214 IF F=9 THEN F=10:GOTO 400
  61. 216 IF F=14 THEN F=13:GOTO 400
  62. 217 IF F=13 THEN F=15:GOTO 400
  63. 219 IF F=10 THEN F=12:GOTO 400
  64. 230 GOSUB440:PRINTSPC(1)"DORTHIN FUEHRT KEIN WEG !":FORI=1TO2000:NEXT
  65. 232 GOTO 1000
  66. 250 REM SUEDEN
  67. 251 IF F=5 THEN F=1:GOTO 410
  68. 252 IF F=1 THEN F=4:GOTO 410
  69. 254 IF F=4 THEN F=16:GOTO 410
  70. 255 IF F=17 THEN F=18:GOTO 410
  71. 257 IF F=3 THEN F=22:GOTO 410
  72. 259 IF F=2 THEN F=3:GOTO 410
  73. 260 IF F=7 THEN F=6:GOTO 410
  74. 262 IF F=11 THEN F=7:GOTO 410
  75. 264 IF F=10 THEN F=9:GOTO 410
  76. 266 IF F=13 THEN F=14:GOTO 410
  77. 267 IF F=15 THEN F=13:GOTO 410
  78. 269 IF F=12 THEN F=10:GOTO 410
  79. 280 GOTO 230
  80. 300 REM WESTEN
  81. 301 IF F=1 THEN F=21:GOTO 420
  82. 303 IF F=2 THEN F=1:GOTO 420
  83. 305 IF F=6 THEN F=2:GOTO 420
  84. 306 IF F=8 THEN F=6:GOTO 420
  85. 308 IF F=9 THEN F=8:GOTO 420
  86. 310 IF F=16 THEN F=17:GOTO 420
  87. 312 IF F=17 THEN F=19:GOTO 420
  88. 314 IF F=3 THEN F=4:GOTO 420
  89. 316 IF F=10 THEN F=7:GOTO 420
  90. 317 IF F=7 THEN F=5:GOTO 420
  91. 320 IF F=13 THEN F=12:GOTO 420
  92. 330 GOTO 230
  93. 350 REM OSTEN
  94. 351 IF F=21 THEN F=1:GOTO 430
  95. 353 IF F=1 THEN F=2:GOTO 430
  96. 355 IF F=2 THEN F=6:GOTO 430
  97. 356 IF F=6 THEN F=8:GOTO 430
  98. 358 IF F=8 THEN F=9:GOTO 430
  99. 380 IF F=17 THEN F=16:GOTO 430
  100. 382 IF F=19 THEN F=17:GOTO 430
  101. 384 IF F=4 THEN F=3:GOTO 430
  102. 386 IF F=7 THEN F=10:GOTO 430
  103. 387 IF F=5 THEN F=7:GOTO 430
  104. 390 IF F=12 THEN F=13:GOTO 430
  105. 391 IF F=20 THEN F=19:GOTO 430
  106. 395 GOTO 230
  107. 400 GOSUB 440
  108. 401 PRINTSPC(1)"DU GEHST NACH NORDEN !":FORI=1TO500:NEXT:GOTO 450
  109. 410 GOSUB 440
  110. 411 PRINTSPC(1)"DEINER EINER LAUEFT NACH SUEDEN !":FORI=1TO500:NEXT:GOTO 450
  111. 420 GOSUB 440
  112. 421 PRINTSPC(1)"YOU GO WEST !":FORI=1TO500:NEXT:GOTO 450
  113. 430 GOSUB 440
  114. 431 PRINTSPC(1)"DU MARSCHIERST NACH OSTEN !":FORI=1TO500:NEXT:GOTO 450
  115. 440 PRINT"":POKE 53269,0
  116. 441 PRINTSPC(1)"[144]                                      [146]
  117. 442 [153][166]1)"STOP                                      WAIT
  118. 443 PRINTSPC(1)"[144]                                      [146]
  119. 444 [153][166]1)"STOP                                      WAIT
  120. 445 PRINT"":RETURN
  121. 450 REM MARCH MUSIK !
  122. 451 FORI=1TO10:SI=54272
  123. 453 FOR II=0 TO 24:POKE SI+II,0:NEXT
  124. 455 POKE SI+1,15:POKE SI+5,9:POKE 2+15,30
  125. 456 POKE SI+24,15:POKE SI+4,129:POKE SI+4,65:POKE SI+4,129
  126. 458 NEXTI:GOTO1000
  127. 500 PRINT"[147]":REM ANLEITUNG
  128. 502 GOSUB 70
  129. 505 PRINTSPC(1)"DEINE JUGENDLIEBE MAID MARIAN WURDE
  130. 507 [153][166]1)"CONT ENTFUEHRT WAIT WAS DICH NICHT WEITER
  131. 510 PRINTSPC(1)"STOERT ! JEDOCH HAT SIE EINE KETTE AN,
  132. 513 [153][166]1)"WELCHE DU JETZT WO SIE WOHL IHREN ENT=
  133. 515 PRINTSPC(1)"FUEHRER [158] HEIRATEN [146] MUSS, WIEDER HABEN
  134. 517 [153][166]1)"WILLST !
  135. 519 PRINTSPC(1)"ALSO MACHST DU DICH AUF DEN WEG, DIE
  136. 520 [153][166]1)"KETTE  WIEDER WAIT ZU BESORGEN !
  137. 522 PRINTSPC(1)"VIEL ERFOLG !!!
  138. 525 [153][166]1)"PUBLIC DOMAIN SOFT 12/1991
  139. 526 PRINTSPC(1)"    (W) BY PETER DIEHM 1991
  140. 528 [141] 10
  141. 530 [153]"LOAD"
  142. 532 [153][166]2)"  (null)(null)+(null) SGNFN  (null) (null)USR USR(null)USRUSR FN ++(null) FN(null)USR(null)
  143. 533 PRINTSPC(2)"  [204][186][167][170] [180][180]  [207] [170]   [170]   [165] [170][170][170] [165][165] [175]
  144. 534 [153][166]2)"  FN+THEN (null)FN(null)AND USR USRUSR  +   (null)AND(null)+ (null)FN(null)AND(null)
  145. 535 PRINTSPC(1)"":GOSUB 90
  146. 537 PRINTSPC(1)" (W) BY PETER DIEHM DEZEMBER 1991 PD
  147. 539 [153][166]1)"ANLEITUNG AUF DRUCKER ODER MONITOR
  148. 540 PRINTSPC(1)"AUSGEBEN ?
  149. 543 [133] " CONT -=> WAIT (D/M) ";D$
  150. 544 [139] D$[178]"D" [176] D$[178]"DRUCKER" [167] GF[178]1:[137]550
  151. 547 [139] D$[178]"M" [176] D$[178]"MONITOR" [167] 555
  152. 549 [137] 530
  153. 550 [153][166]1)"DRUCKER EINSCHALTEN !":[141] 10
  154. 551 [159]1,4:[157]1
  155. 553 [137] 560
  156. 554 [137] 3000
  157. 555 [153]"LOAD"
  158. 556 [153][166]1)" ANLEITUNG:"
  159. 557 [153][166]1)"------------"
  160. 560 [153][166]1)"HALLO WILLKOMMEN ZUM DEM VERRUECKTESTEN
  161. 562 PRINTSPC(1)"PUBLIC DOMAIN ADVENTURE SEID BEN HUR !"
  162. 564 PRINTSPC(1)"GREG LEMON/HOOD VATER ALLER ADVENTURE.
  163. 565 [153][166]1)"STEUERN KANNST DU DAS ADVENTURE MIT
  164. 566 PRINTSPC(1)"DEN F-TASTEN. DIESE HABEN FOLGENDE BE=
  165. 567 [153][166]1)"DEUTUNG: F1=RECHTS,F3=LINKS,F5=AKTION
  166. 568 PRINTSPC(1)"AUFRUFEN,F7= WENN DU DICH KURZER HAND
  167. 570 [153][166]1)"ENTSCHLIESST DOCH NICHT IN EINE RICHT=
  168. 572 PRINTSPC(1)"UNG ZU GEHEN,DANN DRUECKE DIESE TASTE.
  169. 580 [153][166]1)"NUN NOCH EIN KLEINER AUFRUF ! MACH
  170. 581 PRINTSPC(1)"DOCH AUCH MAL WAS FUER DEN PUBLIC
  171. 583 [153][166]1)"BEREICH ! UND SCHICKE DANN DAS/DIE
  172. 585 PRINTSPC(1)"PROGRAMM(E) AN EINEN PUBLIC DOMAIN
  173. 587 [153][166]1)"VERTRIEB.BEI DEN VERTRIEBEN DIE DIESES
  174. 588 PRINTSPC(1)"PROGRAMM IN IHRER LISTE HABEN BEKOMMST
  175. 590 [153][166]1)"DU BISTIMMT ANTWORT !"
  176. 591 [139] GF[178]1 [167] 554
  177. 595 [153]"":[141] 10:[137] 1000
  178. 699 [128]
  179. 700 [143] ERSCHLAGEN
  180. 701 [141] 70
  181. 704 [153][166]1)"TRAURIGE NACHRICHT !"
  182. 707 [153][166]1)"DU WIRST VON EINEM AST ERSCHLAGEN !"
  183. 710 [153][166]1)"HAETTST DU IN DRACHEN BLUT GEBADET
  184. 712 PRINTSPC(1)"WAERE DAS NICHT PASSIERT !":GOSUB 10
  185. 715 GOSUB 70
  186. 717 PRINTSPC(1)"NOCH EIN [155] SPIEL [146] ?
  187. 718 [133]" SYS -=> WAIT ";D$
  188. 720 [139] D$[178]"N" [176] D$[178]"NEIN" [167] [158] 64738
  189. 722 [138]
  190. 990 F[178]1:GG[178]1:[141] 30
  191. 1000 [143] VERTEILER
  192. 1001 [151] 53269,0
  193. 1002 [153]"LOAD GREG LEMON/HOOD  RITTER WAIT DES RECHTS !":GG[178]1
  194. 1004 [139] F[178]1 [167] A$[178]"2":[141] 50:[137] 2000
  195. 1006 [139] F[178]2 [167] A$[178]"1":[141] 50:[137] 2020
  196. 1007 [139] F[178]3 [167] A$[178]"2":[141] 50:[137] 2040
  197. 1008 [139] F[178]4 [167] A$[178]"1":[141] 50:[137] 2060
  198. 1009 [139] F[178]5 [167] A$[178]"1":[141] 50:[137] 2080
  199. 1010 [139] F[178]6 [167] A$[178]"2":[141] 50:[137] 2100
  200. 1011 [139] F[178]7 [167] A$[178]"2":[141] 50:[137] 2120
  201. 1012 [139] F[178]8 [167] A$[178]"1":[141] 50:[137] 2140
  202. 1013 [139] F[178]9 [175] DD[178]0 [167] A$[178]"10":[141] 50:[137] 2160
  203. 1014 [139] F[178]9 [175] DD[178]1 [167] A$[178]"3":[141] 50:[137] 170
  204.